/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (ppc).sea / pro Fit 5.0 demo (ppc) / Examples / Programming - intro / ChiSquared

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 43 68 69 53 71 75 | 61 72 65 64 00 00 00 00 |..ChiSqu|ared....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 04 cf 00 | 00 03 2f ad 83 12 a8 ad |........|../.....|
|00000060| 83 12 a8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 74 b6 00 00 |........|....t...|
|00000080| 7b 20 41 20 73 69 6d 70 | 6c 65 20 65 78 61 6d 70 |{ A simp|le examp|
|00000090| 6c 65 20 70 72 6f 67 72 | 61 6d 20 66 6f 72 20 63 |le progr|am for c|
|000000a0| 61 6c 63 75 6c 61 74 69 | 6e 67 20 74 68 65 20 73 |alculati|ng the s|
|000000b0| 75 6d 20 6f 66 20 74 68 | 65 20 73 71 75 61 72 65 |um of th|e square|
|000000c0| 64 20 64 69 66 66 65 72 | 65 6e 63 65 73 20 7d 0d |d differ|ences }.|
|000000d0| 7b 20 6f 66 20 74 77 6f | 20 63 6f 6c 75 6d 6e 73 |{ of two| columns|
|000000e0| 20 69 6e 20 61 20 64 61 | 74 61 20 77 69 6e 64 6f | in a da|ta windo|
|000000f0| 77 2e 20 49 74 20 73 68 | 6f 77 73 20 68 6f 77 20 |w. It sh|ows how |
|00000100| 74 6f 20 75 73 65 20 74 | 68 65 20 49 6e 70 75 74 |to use t|he Input|
|00000110| 20 63 6f 6d 6d 61 6e 64 | 20 7d 0d 7b 20 74 6f 20 | command| }.{ to |
|00000120| 62 72 69 6e 67 20 75 70 | 20 70 6f 70 2d 75 70 20 |bring up| pop-up |
|00000130| 6d 65 6e 75 73 20 61 6e | 64 20 63 68 65 63 6b 62 |menus an|d checkb|
|00000140| 6f 78 65 73 2e 20 7d 0d | 7b 20 54 6f 20 75 73 65 |oxes. }.|{ To use|
|00000150| 20 74 68 65 20 70 72 6f | 67 72 61 6d 2c 20 63 68 | the pro|gram, ch|
|00000160| 6f 6f 73 65 20 22 41 64 | 64 20 74 6f 20 4d 65 6e |oose "Ad|d to Men|
|00000170| 75 22 20 66 72 6f 6d 20 | 74 68 65 20 4d 69 73 63 |u" from |the Misc|
|00000180| 20 6d 65 6e 75 20 74 6f | 20 63 6f 6d 70 69 6c 65 | menu to| compile|
|00000190| 20 69 74 20 7d 0d 7b 20 | 54 68 65 6e 20 6f 70 65 | it }.{ |Then ope|
|000001a0| 6e 20 61 20 64 61 74 61 | 20 77 69 6e 64 6f 77 20 |n a data| window |
|000001b0| 28 69 66 20 6e 6f 6e 65 | 20 69 73 20 6f 70 65 6e |(if none| is open|
|000001c0| 29 2e 20 54 68 65 6e 20 | 72 75 6e 20 74 68 65 20 |). Then |run the |
|000001d0| 70 72 6f 67 72 61 6d 20 | 62 79 20 63 68 6f 6f 73 |program |by choos|
|000001e0| 69 6e 67 20 22 43 68 69 | 5f 73 71 75 61 72 65 64 |ing "Chi|_squared|
|000001f0| 22 20 7d 0d 7b 20 66 72 | 6f 6d 20 74 68 65 20 6d |" }.{ fr|om the m|
|00000200| 69 73 63 20 6d 65 6e 75 | 2e 20 7d 0d 0d 70 72 6f |isc menu|. }..pro|
|00000210| 67 72 61 6d 20 43 68 69 | 5f 73 71 75 61 72 65 64 |gram Chi|_squared|
|00000220| 3b 0d 0d 76 61 72 20 69 | 2c 20 63 6f 75 6e 74 3a |;..var i|, count:|
|00000230| 69 6e 74 65 67 65 72 3b | 20 20 20 20 7b 20 6f 75 |integer;|    { ou|
|00000240| 72 20 67 6c 6f 62 61 6c | 20 76 61 72 69 61 62 6c |r global| variabl|
|00000250| 65 73 20 7d 0d 09 09 09 | 6e 75 6d 3a 65 78 74 65 |es }....|num:exte|
|00000260| 6e 64 65 64 3b 0d 09 09 | 09 79 31 63 2c 79 32 63 |nded;...|.y1c,y2c|
|00000270| 3a 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 6e 6f 72 |:integer|;....nor|
|00000280| 6d 3a 62 6f 6f 6c 65 61 | 6e 3b 0d 09 09 09 0d 70 |m:boolea|n;.....p|
|00000290| 72 6f 63 65 64 75 72 65 | 20 69 6e 69 74 69 61 6c |rocedure| initial|
|000002a0| 69 7a 65 3b 0d 7b 20 74 | 68 69 73 20 70 72 6f 63 |ize;.{ t|his proc|
|000002b0| 65 64 75 72 65 20 69 73 | 20 63 61 6c 6c 65 64 20 |edure is| called |
|000002c0| 6f 6e 63 65 2c 20 77 68 | 65 6e 20 74 68 65 20 70 |once, wh|en the p|
|000002d0| 72 6f 67 72 61 6d 20 69 | 73 20 63 6f 6d 70 69 6c |rogram i|s compil|
|000002e0| 65 64 2e 20 55 73 65 20 | 69 74 20 66 6f 72 20 73 |ed. Use |it for s|
|000002f0| 65 74 74 69 6e 67 20 64 | 65 66 61 75 6c 74 20 76 |etting d|efault v|
|00000300| 61 6c 75 65 73 20 7d 0d | 62 65 67 69 6e 0d 09 79 |alues }.|begin..y|
|00000310| 31 63 3a 3d 31 3b 79 32 | 63 3a 3d 32 3b 6e 6f 72 |1c:=1;y2|c:=2;nor|
|00000320| 6d 3a 3d 30 3b 0d 65 6e | 64 3b 0d 0d 62 65 67 69 |m:=0;.en|d;..begi|
|00000330| 6e 0d 20 20 49 6e 70 75 | 74 28 27 24 43 79 31 20 |n.  Inpu|t('$Cy1 |
|00000340| 43 6f 6c 75 6d 6e 27 2c | 79 31 63 2c 27 24 43 79 |Column',|y1c,'$Cy|
|00000350| 32 20 43 6f 6c 75 6d 6e | 27 2c 79 32 63 2c 27 24 |2 Column|',y2c,'$|
|00000360| 58 44 69 76 69 64 65 20 | 72 65 73 75 6c 74 20 62 |XDivide |result b|
|00000370| 79 20 6e 75 6d 62 65 72 | 20 6f 66 20 70 6f 69 6e |y number| of poin|
|00000380| 74 73 27 2c 6e 6f 72 6d | 29 3b 0d 20 20 7b 20 24 |ts',norm|);.  { $|
|00000390| 43 20 74 65 6c 6c 73 20 | 49 6e 70 75 74 20 74 6f |C tells |Input to|
|000003a0| 20 73 68 6f 77 20 61 20 | 70 6f 70 75 70 20 77 69 | show a |popup wi|
|000003b0| 74 68 20 61 6c 6c 20 63 | 6f 6c 75 6d 6e 73 2c 20 |th all c|olumns, |
|000003c0| 24 58 20 61 20 63 68 65 | 63 6b 62 6f 78 20 7d 0d |$X a che|ckbox }.|
|000003d0| 20 20 6e 75 6d 20 3a 3d | 20 30 3b 0d 20 20 63 6f |  num :=| 0;.  co|
|000003e0| 75 6e 74 20 3a 3d 20 30 | 3b 0d 20 20 66 6f 72 20 |unt := 0|;.  for |
|000003f0| 69 3a 3d 31 20 74 6f 20 | 4e 72 52 6f 77 73 20 64 |i:=1 to |NrRows d|
|00000400| 6f 0d 20 20 62 65 67 69 | 6e 0d 09 09 69 66 20 44 |o.  begi|n...if D|
|00000410| 61 74 61 4f 4b 28 69 2c | 79 31 63 29 20 61 6e 64 |ataOK(i,|y1c) and|
|00000420| 20 44 61 74 61 4f 4b 28 | 69 2c 79 32 63 29 20 74 | DataOK(|i,y2c) t|
|00000430| 68 65 6e 20 20 20 7b 20 | 69 66 20 64 61 74 61 20 |hen   { |if data |
|00000440| 69 6e 20 62 6f 74 68 20 | 63 6f 6c 75 6d 6e 73 20 |in both |columns |
|00000450| 7d 0d 09 09 62 65 67 69 | 6e 0d 09 09 09 09 6e 75 |}...begi|n.....nu|
|00000460| 6d 20 3a 3d 20 6e 75 6d | 2b 73 71 72 28 64 61 74 |m := num|+sqr(dat|
|00000470| 61 5b 69 2c 79 31 63 5d | 20 2d 20 64 61 74 61 5b |a[i,y1c]| - data[|
|00000480| 69 2c 79 32 63 5d 29 3b | 0d 09 09 09 09 63 6f 75 |i,y2c]);|.....cou|
|00000490| 6e 74 20 3a 3d 20 63 6f | 75 6e 74 2b 31 3b 0d 09 |nt := co|unt+1;..|
|000004a0| 09 65 6e 64 3b 0d 09 65 | 6e 64 3b 0d 20 20 69 66 |.end;..e|nd;.  if|
|000004b0| 20 6e 6f 72 6d 20 74 68 | 65 6e 20 62 65 67 69 6e | norm th|en begin|
|000004c0| 0d 20 20 20 20 77 72 69 | 74 65 6c 6e 28 27 23 70 |.    wri|teln('#p|
|000004d0| 6f 69 6e 74 73 20 3d 20 | 27 2c 63 6f 75 6e 74 29 |oints = |',count)|
|000004e0| 3b 0d 20 20 20 20 77 72 | 69 74 65 6c 6e 28 27 43 |;.    wr|iteln('C|
|000004f0| 68 69 2d 73 71 75 61 72 | 65 64 20 64 69 76 69 64 |hi-squar|ed divid|
|00000500| 65 64 20 62 79 20 23 70 | 6f 69 6e 74 73 20 3d 20 |ed by #p|oints = |
|00000510| 27 2c 6e 75 6d 2f 63 6f | 75 6e 74 29 0d 20 20 65 |',num/co|unt).  e|
|00000520| 6e 64 20 65 6c 73 65 0d | 20 20 20 20 77 72 69 74 |nd else.|    writ|
|00000530| 65 6c 6e 28 27 43 68 69 | 2d 73 71 75 61 72 65 64 |eln('Chi|-squared|
|00000540| 20 3d 20 27 2c 6e 75 6d | 29 0d 65 6e 64 3b 0d 00 | = ',num|).end;..|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000590| 6e 28 27 43 68 69 2d 73 | 71 75 61 72 65 64 20 64 |n('Chi-s|quared d|
|000005a0| 69 76 69 64 65 64 20 62 | 79 20 23 70 6f 69 6e 74 |ivided b|y #point|
|000005b0| 0a 43 68 69 53 71 75 61 | 72 65 64 71 02 00 00 00 |.ChiSqua|redq....|
|000005c0| 66 74 46 43 4e 4c 66 74 | 01 00 00 34 00 80 00 00 |ftFCNLft|...4....|
|000005d0| 00 00 66 74 46 43 4e 4c | 66 74 01 00 00 34 00 80 |..ftFCNL|ft...4..|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000005f0| 00 00 a2 a2 96 d6 00 00 | 04 cf 00 00 03 2f 61 6c |........|...../al|
|00000600| 6f 67 20 62 6f 78 0d 65 | 78 74 65 72 6e 20 64 6f |og box.e|xtern do|
|00000610| 75 62 6c 65 09 09 78 4d | 69 6e 2c 20 78 4d 61 78 |uble..xM|in, xMax|
|00000620| 3b 09 09 09 2f 2f 20 72 | 61 6e 67 65 20 66 6f 72 |;...// r|ange for|
|00000630| 20 79 0d 65 78 74 65 72 | 6e 20 64 6f 75 62 6c 65 | y.exter|n double|
|00000640| 09 09 79 4d 69 6e 2c 20 | 79 4d 61 78 3b 09 09 09 |..yMin, |yMax;...|
|00000650| 2f 2f 20 72 61 6e 67 65 | 20 66 6f 72 20 79 0d 65 |// range| for y.e|
|00000660| 78 74 65 72 6e 20 64 6f | 75 62 6c 65 09 09 7a 4d |xtern do|uble..zM|
|00000670| 69 6e 2c 20 7a 4d 61 78 | 3b 09 09 09 2f 2f 20 72 |in, zMax|;...// r|
|00000680| 00 00 00 08 00 3c 00 05 | 02 16 02 61 00 00 01 06 |.....<..|...a....|
|00000690| 00 03 00 0a 00 16 06 47 | 65 6e 65 76 61 00 ff ff |.......G|eneva...|
|000006a0| ff ff ff ff ff ff 02 64 | 20 30 22 00 08 24 40 a1 |.......d| 0"..$@.|
|000006b0| 27 a0 00 39 12 cc 00 39 | 12 cc 00 01 d9 94 00 0b |'..9...9|........|
|000006c0| 00 06 00 0b 00 06 00 00 | 00 81 02 3e e6 08 00 00 |........|...>....|
|000006d0| 00 00 02 3e db d0 00 00 | 00 81 02 3e e6 08 00 00 |...>....|...>....|
|000006e0| 00 00 ff ff ff ff 02 64 | 21 80 24 00 04 82 03 38 |.......d|!.$....8|
|000006f0| 96 50 02 3f 04 30 00 33 | 10 00 02 3e 7e 90 02 64 |.P.?.0.3|...>~..d|
|00000700| 20 68 00 00 00 00 02 64 | 21 68 02 3c ff e0 00 00 | h.....d|!h.<....|
|00000710| 00 39 10 74 80 28 00 02 | 00 20 00 11 00 41 00 00 |.9.t.(..|. ...A..|
|00000720| 00 00 00 00 34 b0 00 00 | 34 b0 00 00 00 00 00 00 |....4...|4.......|
|00000730| 00 08 00 01 00 08 00 00 | 00 00 00 00 34 9c 02 3d |........|....4..=|
|00000740| 0a 70 60 b0 00 00 82 80 | 00 00 00 00 03 66 00 16 |.p`.....|.....f..|
|00000750| 93 70 00 00 00 00 02 64 | 20 f0 00 00 00 50 00 06 |.p.....d| ....P..|
|00000760| 3e e8 00 08 00 01 02 64 | 20 f0 00 00 00 00 02 3d |>......d| ......=|
|00000770| 58 48 01 00 00 01 02 64 | 21 10 00 01 2f a4 02 64 |XH.....d|!.../..d|
|00000780| 20 dc 02 64 20 e0 02 64 | 20 d8 00 25 00 25 00 00 | ..d ..d| ..%.%..|
|00000790| 94 20 02 43 df 70 00 00 | 00 10 00 00 00 00 00 00 |. .C.p..|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|000007b0| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|000007c0| 00 00 02 da 02 28 ff e1 | ff e1 02 f9 02 45 03 47 |.....(..|.....E.G|
|000007d0| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|000007e0| 02 da 02 28 00 01 00 00 | 00 64 00 00 00 01 00 01 |...(....|.d......|
|000007f0| 01 01 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 02 00 19 01 90 00 00 |........|........|
|00000810| 00 00 00 40 00 00 00 00 | 00 00 00 00 00 01 00 00 |...@....|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000830| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|00000840| b9 00 00 01 b9 00 00 00 | 76 02 3f 0d b4 23 a0 00 |........|v.?..#..|
|00000850| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|00000860| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 02 |TR ...N.|........|
|00000870| 3f 03 a0 00 82 ff ff 00 | 00 00 0c 02 3f 07 20 00 |?.......|....?. .|
|00000880| 83 ff ff 00 00 01 16 02 | 3f 03 cc 00 85 ff ff 00 |........|?.......|
|00000890| 00 01 2a 02 3f 04 04 00 | 84 ff ff 00 00 01 32 02 |..*.?...|......2.|
|000008a0| 3f 03 8c bf f4 ff ff 00 | 00 01 ae 02 3f 07 44 00 |?.......|....?.D.|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+